home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / metamail / contrib / ServiceMail / src / services / services.tcl < prev    next >
Encoding:
Text File  |  1993-05-07  |  528 b   |  15 lines
  1. # services: list currently installed services
  2. #
  3. # 23-Feb-93 weber@eitech.com fixed bug when only one service
  4. # 30-Jun-92 weber@eitech.com renamed
  5. # 29-Jun-92 salil@eitech.com created
  6. #
  7. proc list-services {switches envelope inputs} {
  8.     global executor
  9.     # get the list of services separated by newlines
  10.     set servlist [array names executor]
  11.     regsub -all " " $servlist "\n" servlist
  12.     setfield response STRING $servlist
  13.     setfield response DESCRIPTION "Names of available services"
  14.     return [mailout [turnaround $envelope] $response];
  15. }